home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / example4.5 < prev    next >
Text File  |  2007-02-28  |  540b  |  23 lines
  1. 0010 DIM LETTER$ OF 30, CH$ OF 1
  2. 0020 POS:=0
  3. 0030 FOR CODE:=65 TO 90 DO
  4. 0040 IF RND(1,3)>1 THEN
  5. 0050 POS:=POS+1
  6. 0060 LETTER$(POS:POS):=CHR$(CODE)
  7. 0070 ENDIF 
  8. 0080 ENDFOR CODE
  9. 0090 LETTER$(POS+1:POS+1):="*"
  10. 0100 REPEAT 
  11. 0110 INPUT "ENTER LETTER OR >": CH$
  12. 0120 UNTIL (CH$>="A" AND CH$<="Z") OR CH$=">"
  13. 0130 IF CH$=">" THEN STOP 
  14. 0140 POS:=0
  15. 0150 REPEAT 
  16. 0160 POS:=POS+1
  17. 0170 UNTIL LETTER$(POS:POS)=CH$ OR LETTER$(POS:POS)="*"
  18. 0180 IF LETTER$(POS:POS)="*" THEN
  19. 0190 PRINT "NOT FOUND"
  20. 0200 ELSE 
  21. 0210 PRINT "FOUND AT POSITION";POS
  22. 0220 ENDIF 
  23.